home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 September / 64er_Magazin_85-09_1985_Markt__Technik_de.d64 / demo musik-tool (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  865b  |  27 lines
  1. 0 rem  ********************
  2. 1 rem  *demo zu musik-tool*
  3. 2 rem  ********************
  4. 3 :
  5. 4 rem von r.wenski und m.wernecke
  6. 5 :
  7. 6 z3=-0.01:sclr
  8. 10 adsr1,0,0,12,0
  9. 12 adsr2,0,0,12,0
  10. 14 adsr3,8,9,0,7
  11. 20 play1,936,33:play2,941,33:fort=1to15:vol t:foru=0to200:nextu,t
  12. 60 c(0)=936:c(1)=936:c(2)=1114:c(3)=834
  13. 100 reada:ifa=-1thenrestore:goto100
  14. 110 play3,a,17+2+4 : rem dreieck + synchronisation + ringmodulation
  15. 135 z3=z3+.5:ifz3>4thenz3=.499
  16. 140 play1,c(z3),33:play2,c(z3)+5,33
  17. 160 fori=1to100:next:soff3:goto100
  18. 165 data0,0,0,0,0,0,0,0,0,0,0,0
  19. 170 data14435,14435,12860,14435,17167,16203,15294,14435
  20. 180 data12860,14435,12860,14435
  21. 190 data21629,21629,19269,21629,28871,25721,22915,21629
  22. 200 data30588,28871,30588,28871,30588,28871,30588,28871
  23. 210 data34334,30588,28871,27251,25721,24288,22915,21629
  24. 220 data17167,17167,19269,17167,19269,17167,16203,16203
  25. 230 data18188,18188,17167,17167,21629,21629,21269,21269
  26. 10000 data-1
  27.